home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Music / How to make binaural beats? < prev    next >
Encoding:
Text File  |  1998-10-26  |  2.2 KB  |  69 lines  |  [TEXT/ScoM]
  1. HOW TO MAKE BINAURAL BEATS
  2.  
  3. >I would like to make music with binaural beats.  That is, to generate
  4. >alpha waves the right ear needs to hears every tone 8-12HZ lower that
  5. >the right (using stereo headphones). Do you have a function or a program
  6. >that would support this?
  7. >I wasn't sure if this was appropriate for the SCOM mailing list.  If it
  8. >is feel free to post your response there.
  9.  
  10. ; This is a bit fuzzy solution since I don't have a table on hand
  11. ; about the exact tunings of notes. You have to tweak this.
  12.  
  13. ; The idea is to create a tuned tonality where the other frequency is
  14. ; 10 hz higher. To achieve this you need to know the base frequency of
  15. ; the first note and then define  a ratio of basefreq+10 hz / basefreq 
  16. ; which results in ratio that is used to define the next tuning value.
  17.  
  18. ; does anybody know what is the right multiplicator to get the note and 
  19. ; freqs match?
  20.  
  21. (setq basefreq (* 12 (note-to-freq 'c 3)))
  22.  
  23. ; create a tonality 0 cent and cent value of base+10hz and base
  24. ; then let voice-base play the first note of the tonality with symbol a and
  25. ; the voice-beat the second note of the tonality with symbol b
  26.  
  27. ; notice you must know the resolution of your synth, how many steps it
  28. ; can produce between semitones. If you use 4096 and set up the synth
  29. ; to respond with 1 semitone it will likely be the right setting, but
  30. ; may need experimentation.
  31.  
  32. (create-tonality 10hz-alpha (cents-to-freqs (list 0 (freq-to-cent (+ basefreq 10) basefreq))))
  33.  
  34. (def-orchestra 'orchestra
  35.    all-instruments (voice)
  36.    voice (voice-base voice-beat)
  37. )
  38.  
  39. (def-section-timesheet sect-a
  40.    ;
  41.    ; timesheet
  42.    ;
  43.    with 1/1       ;1       9      17       25      33    
  44.    ;               +---!---+---!---+---!---+---!---+---!
  45.    tonality       "." (activate-tonality (10hz-alpha c 3 4096))
  46.    voice          "----------------"
  47.    ;
  48.    beat 1/1     ; !---!---!---!---!
  49.    voice-base     "-" '(a) with '(85 75 80 70)
  50.    voice-beat     "-" '(b) with '(85 75 80 70)
  51. )
  52.  
  53. (def-section sect-a
  54.   voice-base
  55.     channel 1
  56.   voice-beat
  57.     channel 2
  58. )
  59.  
  60. (def-tempo 120)
  61.  
  62. ; note that nil here makes it saving the file in the same folder where the
  63. ; source code is in.
  64.  
  65. (play-file-p nil
  66.    all-instruments '(sect-a)
  67. )
  68.  
  69.